Yetki ile sütün görme

[karatlk]

Yeni bir sayfa yapmak istiyorum ama çook acemiyim sayfa ilk açıldığında karşıma user form geliyor bu formda yetki seviyeleri sayfa olarak yapılmış ama ben burada 1. Derce yetkiyi açınca ilk sayfanın sadece 6 sutununu 2. Derece yetki ile açınca ilk sayfanın ilk 20 sutununu 3. Derecede açınca ise kitaptaki tüm sayfa ve sutunları görmek istiyorum nasıl bir makro yazmalıyım acaba

 

[cems]

Foruma hoş geldiniz

Öncelikle bir dosya eklemelisiniz www.dosya.tc

 

[karatlk]

elimde başka bir yerden alınmış kod var ama o sayfa düzeyinde kodları yapıştırıyorum nasıl düzenlemem lazım acaba
Sub KISMI()
Dim i As Integer
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "sayfa1" And Worksheets(i).Name <> "sayfa2" And Worksheets(i).Name <> "sayfa3" Then
Sheets(i).Visible = xlSheetVeryHidden
End If
Next i
End Sub

Sub ORTA()
Dim i As Integer
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "sayfa1" And Worksheets(i).Name <> "sayfa2" And Worksheets(i).Name <> "sayfa3" And Worksheets(i).Name <> "sayfa4" And Worksheets(i).Name <> "sayfa5" Then
Sheets(i).Visible = xlSheetVeryHidden
End If
Next i
End Sub


Sub TAM()
Application.ScreenUpdating = False
Dim i As Integer
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "FORM1 (2)" Then
Sheets(i).Visible = True
End If
Next i
Application.ScreenUpdating = True
End Sub