Ist es über vba möglich, alle zellen ausser, Range("A1:E18") auszublenden ?
danke für hilfe !
mfg
Sub Test()
Cells.EntireColumn.Hidden = False
Cells.EntireRow.Hidden = False
Columns("F:IV").EntireColumn.Hidden = True
Rows("18:65536").EntireRow.Hidden = True
End Sub
Sub ist gelb?
Gruß
Reinhard
Sub Test()
ActiveSheet.Unprotect
'ActiveSheet.Unprotect password:="pass" 'oder mit Passwort
Cells.EntireColumn.Hidden = False
Cells.EntireRow.Hidden = False
Columns("D:IV").EntireColumn.Hidden = True
Rows("28:65536").EntireRow.Hidden = True
ActiveSheet.Protect
'ActiveSheet.Protect password:="pass"
End Sub