Blattschutz
02.02.2004 14:33:13
Marco
ich habe ein Problem mit dem Blattschutz. Ich rufe über ein anderes Tabellenblatt via VBA eine Prozedur auf, die mir verschiedene Tabellenblätter ausdrucken soll. Ich habe versucht, den Blattschutz zu deaktivieren, die Zellen zu beschriften und dann wieder zu schützen. Leider kommt die nachgenannte Fehlermeldung.
Das witzige ist, das es bei anderen Blättern scheinbar funktioniert.
Vielleicht kann mir jemand helfen.
VBA-Code:
Option Explicit
Private Sub Worksheet_Activate()
Call Langdef
ActiveSheet.Unprotect
If IntLang = 1 Then
Worksheets("Comments_A3").Cells(2, 1).Value = "MESSPUNKTLISTE"
Worksheets("Comments_A3").Cells(4, 2).Value = Worksheets("Project Information_D").Cells(29, 3).Value
Worksheets("Comments_A3").Cells(4, 5).Value = Worksheets("Project Information_D").Cells(31, 3).Value
Else
Worksheets("Comments_A3").Cells(2, 1).Value = "MEASURING POINT LIST"
Worksheets("Comments_A3").Cells(4, 2).Value = Worksheets("Project Information").Cells(29, 3).Value
Worksheets("Comments_A3").Cells(4, 5).Value = Worksheets("Project Information").Cells(31, 3).Value
End If
ActiveSheet.Protect userinterfaceonly:=True
End Sub
FEHLERMELDUNG:
Laufzeitfehler '1004'
Die Zelle oder das Diagramm, das Sie versuchen zu ändern, ist geschützt und somit schreibgeschützt.
...deaktivieren Sie den Schutz ... (Menü 'Extras',Untermenü 'Schutz')...
Gruß Marco