Macro Tabellenschutz ?!

[Frankvas]

kann es sein das ein macro nicht in eine geschützte Tabelle schreiben darf ?
cell.value=wert zeigt keine wirkung
wenn ich den tabellenschutz abschalte wird das macro einbandfrei ausgeführt

[Karolus]

Hallo

Ja !

Gruß Karo

[Frankvas]

na denn werden wir mal weiter basteln .
danke für die schnelle antwort

[turtle47]

Hallo Frankvas,

dann hebe doch den Tabellenschutz einfach per Makro auf, führe Deine Aktion aus und setze anschließend den Tabellenschutz wieder.

Code: Alles auswählen

Sub Deinmakro

TabSchuAus 'ruft das Makro Tabellenschutz aus auf

Hier Dein Code

TabSchuEin 'ruft das Makro Tabellenschutz ein auf

End Sub

Sub TabSchuAus
Dim objDatei As Object
Dim objBlaetter As Object
Dim objBlatt As Object
myDoc = thisComponent
Anzahl=myDoc.Sheets.count
For i=0 to Anzahl-1
objBlatt = myDoc.Sheets(i)
objBlatt.unprotect("Passwort") 'Hier das eigene Passwort eintragen
Next i
End Sub


Sub TabSchuEin
Dim objDatei As Object
Dim objBlaetter As Object
Dim objBlatt As Object
myDoc = thisComponent
Anzahl=myDoc.Sheets.count
For i=0 to Anzahl-1
objBlatt = myDoc.Sheets(i)
objBlatt.protect("Passwort") 'Hier das eigene Passwort eintragen
Next i
End Sub

Das Makro kannst Du ja in der Bibliothek schützen damit keiner das Passwort auslesen kann.

Viel Erfolg

Jürgen

[Frankvas]

jou so werde ich das machen .
danke auch

[turtle47]

Hi Frankvas,

mir ist da noch was eingefallen.

Verknüpfe doch die Zelle in die Du mit dem Makro was einfügen
willst mit einer anderen Zelle im Tabellenblatt.

Zum Beispiel mit dieser Formel:
=WENN(J1="";"";J1)

Mit dem Makro fügst Du jetzt Deinen Wert in Zelle "J1" ein,
die natürlich nicht mit einem Schreibschutz versehen ist.

Die Spalte "J" kannst Du markieren und über das
Menue >Format >Spalte >Ausblenden unsichtbar machen.

Viel Erfolg

Jürgen