Seite 1 von 1
Macro Tabellenschutz ?!
Verfasst: Sa, 17.02.2007 21:14
von 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
Verfasst: Sa, 17.02.2007 21:21
von Karolus
Hallo
Ja !
Gruß Karo
Verfasst: Sa, 17.02.2007 21:25
von Frankvas
na denn werden wir mal weiter basteln .
danke für die schnelle antwort
Verfasst: Sa, 17.02.2007 21:49
von 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
Verfasst: Sa, 17.02.2007 22:37
von Frankvas
jou so werde ich das machen .
danke auch
Verfasst: So, 18.02.2007 10:24
von 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