إخفاء اعمدة وصفوف برقم سري

[بلانك]

المطلوب داخل الملف

إخفاء اعمدة وصفوف برقم سري.xlsx

[محمد هشام.]

Public Property Get WS() As Worksheet: Set WS = Feuil1
End Property
Sub Hide_Columns()
col = "F:G"
On Error Resume Next
WS.Columns(col).Hidden = True
msg = InputBox("أدخل كلمة المرور", "كلمة المرور")
If msg = "1234" Then
WS.Columns(col).Hidden = False
Else
If MsgBox("كلمة المرور غير صحيحة، حاول مرة أخرى", Yes Or No, "كلمة مرور خاطئة") = Yes Then
WS.Columns(col).Hidden = True
On Error GoTo 0
    End If
  End If
End Sub
'**************************
Sub Hide_Rows()
Xrows = "13:14"
On Error Resume Next
WS.Rows(Xrows).Hidden = True
msg = InputBox("أدخل كلمة المرور", "كلمة المرور")
If msg = "1234" Then
WS.Rows(Xrows).Hidden = False
Else
If MsgBox("كلمة المرور غير صحيحة، حاول مرة أخرى", Yes Or No, "كلمة مرور خاطئة") = Yes Then
WS.Rows(Xrows).Hidden = True
On Error GoTo 0
     End If
  End If
End Sub

 

إخفاء اعمدة وصفوف برقم سري.xlsb

تم تعديل يناير 12 بواسطه محمد هشام.
Modify column names

[بلانك]

بارك الله فيك استاذي / محمد هاشم .... وأتعشم منك لااريد اظهار الاعمدة والصفوف بعد اخفائها عن طريق الكليك اليمن من خلال Unhide

[محمد هشام.]

اخي ربما يتعين عليك وضع حماية لورقة العمل لديك لمنع اظهار الاعمدة او اخفائها بدون ادخال كلمة المرور  

جرب هدا الملف باسوورد  1234

 

 

إخفاء اعمدة وصفوف برقم سري.xlsb

تم تعديل يناير 12 بواسطه محمد هشام.
Modify column names

[بلانك]

تمام بارك الله فيك وزادك علما

[محمد هشام.]

العفو اخي يسعدنا اننا استطعنا مساعدتك