gibt es unter Excel einen Schutz, der alle Tabellenblätter vor manuellen Eingaben schützt, so dass Veränderungen nur per Makro vorgenommen werden können?
Vielen Dank
Philipp
Sub blattschutz()
Worksheets("Tabelle1").Unprotect "servus"
Cells(1, 1).Value = "hallo"
Worksheets("Tabelle1").Protect "servus"
End Sub
Private Sub Aufheben()
'* H. Ziplies *
'* 28.12.02 *
'* erstellt von Hajo.Ziplies@web.de *
'* <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a> *
For Each WsTabelle In Sheets
WsTabelle.Unprotect ("")
Next WsTabelle
End Sub
Private Sub Schutz()
'* H. Ziplies *
'* 28.12.02 *
'* erstellt von Hajo.Ziplies@web.de *
'* <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a> *
For Each WsTabelle In Sheets
WsTabelle.Protect ("")
Next WsTabelle
End Sub
Private Sub Workbook_Beforeclose(Cancel As Boolean)
Application.ScreenUpdating = False
Dim wks As Integer
For wks = 1 To Sheets.Count
Sheets(wks).PageSetup.LeftFooter = "&08" + ThisWorkbook.FullName _
& " - " & Sheets(wks).Name
Sheets(wks).Protect password:="pass"
Next wks
Application.ScreenUpdating = True
End Sub