[حل شده] مخفی سازی اطلاعات سلولها

[dvb595959]

درود
فرض کنیم 10 تا سلول داریم که دارای اطلاعات هستند و میخوایم همه اطلاعات مخفی باشن و با رمزی که توی سلول اول وارد میکنم اطلاعات 9 تا سلول دیگه نمایش داده بشه.امکانش هست؟

[Ali Parsaei]

سلام،
مي شود يک کارهايي کرد، ولي اشکالش اين است که رمز وارده در سلول اول پاک نمي شود و در صورت انتخاب سلول قابل مشاهده است! اگر از اين لحاظ اشکالي ندارد بيشتر توضيح دهم.

[dvb595959]

سلام،
مي شود يک کارهايي کرد، ولي اشکالش اين است که رمز وارده در سلول اول پاک نمي شود و در صورت انتخاب سلول قابل مشاهده است! اگر از اين لحاظ اشکالي ندارد بيشتر توضيح دهم.

درود
دقیقا هدف اینه که رمز نمایش داده نشه.
و دقیقتر هم بخوام بگم هدف اینه که حدود ده تا رمز متفاوت دارم که میخوام هر کدوم از این رمزها وارد میشه در واقع اطلاعات یک سری از سلولهای خاص نمایش داده بشه.
مثلا وقتی رمز اول رو میزنم اطلاعات سلولهای اول تا بیستم رو نمایش بده ، وقتی رمز دوم رو می زنم اطلاعات سلولهای چهل تا پنجاه رو نمایش بده.
ولی خود رمزها همیشه مخفی بمونن.

فرستاده شده از ALE-L21ِ من با Tapatalk

[Amir Ghasemiyan]

درود
دقیقا هدف اینه که رمز نمایش داده نشه.
و دقیقتر هم بخوام بگم هدف اینه که حدود ده تا رمز متفاوت دارم که میخوام هر کدوم از این رمزها وارد میشه در واقع اطلاعات یک سری از سلولهای خاص نمایش داده بشه.
مثلا وقتی رمز اول رو میزنم اطلاعات سلولهای اول تا بیستم رو نمایش بده ، وقتی رمز دوم رو می زنم اطلاعات سلولهای چهل تا پنجاه رو نمایش بده.
ولی خود رمزها همیشه مخفی بمونن.

فرستاده شده از ALE-L21ِ من با Tapatalk

سلام دوست عزیز
با توجه به چیزی که شما میخواین باید از کدهای vba استفاده کنید
ابتدا باید سلول هایی که میخواین داده ها مخفی باشن قفل و هیدن کنید بعد شیت رو هم قفل کنید. البته باید این کد رو موقع ورود به فایل بنویسید.

Private Sub Workbook_Open()
Sheet1.Unprotect 123
    With Range("B1:K1")
        .NumberFormat = ";;;"
        .Locked = True
        .FormulaHidden = True
    End With
    With Range("A1")
        .ClearContents
        .Locked = False
        .FormulaHidden = False
    End With
Sheet1.Protect 123
End Sub

بعد یک کد نیاز دارین تو شیت مورد نظرتون بنویسید به این صورت:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    If Range("A1").Value = "ramz" Then
        Sheet1.Unprotect 123
        With Range("B1:K1")
            .NumberFormat = "General"
            .Locked = False
            .FormulaHidden = False
        End With
        Range("A1") = ""
        Sheet1.Protect 123
    End If
End If
End Sub

درضمن سوالتون به تالار ویژوال بیسیک منتقل شد

[dvb595959]

سلام دوست عزیز
با توجه به چیزی که شما میخواین باید از کدهای vba استفاده کنید
ابتدا باید سلول هایی که میخواین داده ها مخفی باشن قفل و هیدن کنید بعد شیت رو هم قفل کنید. البته باید این کد رو موقع ورود به فایل بنویسید.

Private Sub Workbook_Open()
Sheet1.Unprotect 123
    With Range("B1:K1")
        .NumberFormat = ";;;"
        .Locked = True
        .FormulaHidden = True
    End With
    With Range("A1")
        .ClearContents
        .Locked = False
        .FormulaHidden = False
    End With
Sheet1.Protect 123
End Sub

بعد یک کد نیاز دارین تو شیت مورد نظرتون بنویسید به این صورت:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    If Range("A1").Value = "ramz" Then
        Sheet1.Unprotect 123
        With Range("B1:K1")
            .NumberFormat = "General"
            .Locked = False
            .FormulaHidden = False
        End With
        Range("A1") = ""
        Sheet1.Protect 123
    End If
End If
End Sub

درضمن سوالتون به تالار ویژوال بیسیک منتقل شد

درود
ممنون و سپاس بسیار بخاطر پاسخ.
والا من از اکسل چیز زیادی نمیدونم و فکر هم نمی کردم که سوالم ممکنه همچین جوابی داشته باشه.با این اوصاف باید برم یکم مطالعه کنم تا بتونم استفاده بهتر و بیشتری از این برنامه جذاب ببرم.
بازم ممنون داداش.[emoji259] [emoji259] [emoji259] [emoji259]

ارسال از تلفن همراه

[Amir Ghasemiyan]

درود
ممنون و سپاس بسیار بخاطر پاسخ.
والا من از اکسل چیز زیادی نمیدونم و فکر هم نمی کردم که سوالم ممکنه همچین جوابی داشته باشه.با این اوصاف باید برم یکم مطالعه کنم تا بتونم استفاده بهتر و بیشتری از این برنامه جذاب ببرم.
بازم ممنون داداش.[emoji259] [emoji259] [emoji259] [emoji259]

ارسال از تلفن همراه

خواهش میکنم
لطفا هر وقت پاسخ سوالتون رو کامل دریافت کردین تاپیک رو حل شده کنید