Schreibschutz attribut VBA
andreas
ich habe eine Tabelle mit Attribut Schreibschutz gesetzt. Das darum weil die Anwendung für Berechnungen dient und nicht überschrieben wird und werden darf.
Nach einer bestimmten Anzahl Tagen muss ein Passwort eingegeben werden. Und genau nur einmal hier soll das Attribut Schreibschutz aufgehoben werden, die Tabelle gespeichert und das Attribut Schreibschutz wieder gesetzt werden.
Habe eigentlich alles im Griff, nur weiss ich nicht wie ich den Schreischutz aufheben und wieder setzten kann!!
Private Sub CommandButton1_Click()
Unload Me
Sheets("Passwort").Visible = True
Sheets("Passwort").Select
If TextBox1.Value = Range("b1").Value Then
MsgBox ("Passwort ist korrekt")
Range("B1").Select
Selection.Copy
Range("B2").Select
ActiveSheet.Paste
Sheets("Berechnung").Select
Range("A2").Select
Sheets("Passwort").Visible = False
ActiveWorkbook.Save
Else: MsgBox ("Passwort ist falsch, Tabelle wird geschlossen")
ActiveWorkbook.Close savechanges:=False
End If
End Sub
Bin für jede Hilfe dankbarGruß Andreas