DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub dd()
Application.ScreenUpdating = False
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Select
ActiveWindow.DisplayGridlines = False
Next i
Application.ScreenUpdating = True
End Sub
Sub Tüm_kılavuz_çizgilerini_göster()
aktif_sayfa = ActiveSheet.Name
Sheets.Select
ActiveWindow.DisplayGridlines = True
Sheets(aktif_sayfa).Select
End Sub
Sub Tüm_kılavuz_çizgilerini_gizle()
aktif_sayfa = ActiveSheet.Name
Sheets.Select
ActiveWindow.DisplayGridlines = False
Sheets(aktif_sayfa).Select
End Sub
Option Explicit
Sub Gridlines_Show_Or_Hide()
Dim Sh As Worksheet
Static My_Check As Boolean
For Each Sh In ThisWorkbook.Worksheets
Sh.Select
ActiveWindow.DisplayGridlines = My_Check
Next
Sheets(1).Select
MsgBox "Klavuz çizgileri " & IIf(My_Check = False, "pasif", "aktif") & " yapılmıştır.", vbInformation
My_Check = Not My_Check
End Sub