Blattscutz aufheben.
26.07.2007 10:43:35
Heinz H
Hallo Leute
Habe unteren Code der mir Daten in ein anderes Tab.Blatt einfügt.
Es funkt.auch ganz gut. NUR die Blätter sind Blattgeschützt ohne Passwort.
Mit "ActiveSheet.Unprotect"kann ich den Blattschutz nicht aufheben.
Ich möchte: Blattschutz aufheben - Daten Kopieren - Blattschutz ein.
Könnte mir Bitte jemand weiterhelfen.
Danke & Gruß Heinz
Private Sub CommandButton7_Click()
ActiveSheet.Unprotect
Const ber = "B3:K13"
Dim i As Integer
i = Val(InputBox("Wo möchten sie die Werte eintragen ?"))
If i = 0 Then Exit Sub
If i < 1 Or i > 36 Then MsgBox "Die Meisterschaft hat nur 36 Runden !": Exit Sub
ActiveSheet.Range(ber).Copy
Sheets("R" & i).Range("B3:K13").PasteSpecial xlPasteValues
Application.CutCopyMode = False
ActiveSheet.Protect
End Sub