ein Hallo zu Beginn und ein Gruß am Ende läst den Beitrag doch gleich viel freundlicher aussehen. Auch wenn Du den Beitrag am Computer eingibst sitzen an der anderen Seite doch Leute und keine Maschinen die Deine Frage beantworten und da sollte Zeit für die paar Worte doch vorhanden sein.
in Excel ist nichts sicher. An jeder Ecke im Internet gibt es Programm zum knacken von Paswörtern. Bei Xp wahrscheinlich noch nicht soviele, aber das dauert nicht mehr lange.
Gruß hajo
mit der Datei kann nur bei aktivierten Makros gearbeitet werden, ein speichern ist nur mit schließen möglich, Die Datei wird beim öffnen am bzw. nach 01.04.03 gelöscht, keine Ablage im Papierkorb.
Beachte die Kommentare.
' **************************************************************
' modul: DieseArbeitsmappe Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit
Dim InI As Integer
Dim ByS As Boolean
' erstellt von Hajo.Ziplies@Web.de 13.01.03
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' blendest alle anderen Register aus
' Sheets("Tabelle2").Visible = xlVeryHidden aus außer Tabelle1
Dim Mldg As Byte
If ActiveWorkbook.Saved Then ' Datei wurde verändert
Worksheets("Tabelle1").Visible = True
For InI = Worksheets.Count To 1 Step -1
If Worksheets(InI).Name <> "Tabelle1" Then Worksheets(InI).Visible = xlVeryHidden
Next InI
ByS = True
ThisWorkbook.Save
Else
If ByS = True Then Exit Sub
Mldg = MsgBox(" Sollen die Veränderungen gespeichertg werden ??", _
vbYesNo + vbQuestion, "Speicher Abfrage ?", "", 0)
If Mldg = 6 Then
Worksheets("Tabelle1").Visible = True
For InI = Worksheets.Count To 1 Step -1
If Worksheets(InI).Name <> "Tabelle1" Then Worksheets(InI).Visible = xlVeryHidden
Next InI
ByS = True
ThisWorkbook.Save
Else
ByS = True
ThisWorkbook.Close False
End If
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ByS = False Then
Cancel = True
MsgBox "Datei kann nur beim schliessen gespeichert werden"
End If
End Sub
Private Sub Workbook_Open()
If Date >= CDate("01.04.2003") Then
MsgBox "Ihre Testphase ist abgelaufen," _
& vbCr & "bitte wenden Sie sich an Ihren Administrator."
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
Else
For InI = Worksheets.Count To 1 Step -1
Worksheets(InI).Visible = True
Next InI
Worksheets("Tabelle1").Visible = False
ActiveWorkbook.Saved = True
End If
End Sub
' Füge ein neues Register ein und schreibe groß drauf "Makro wurden nicht aktiviert"
' in Private Sub Workbook_BeforeClose(Cancel As Boolean)
' blendest Du alle anderen Register aus
' Das Ausblenden hat den Vorteil das die Register nur über VBA eingeblendet werden können
' und nicht über Format, Blatt, Einblenden.
' VBA Projekt schützen
Code eingefügt mit: Excel Code Jeanie
Code Jeanie
Frage
Das Umsetzen nach HTML klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend < pre > < /pre > Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein
Gruß Hajo