AW: Eindeutige Nummer
23.09.2005 23:15:34
HansH
Hallo Gerhard,
mal nen Beispiel aus diesem Forum
Sub Workbook_Open()
'Sheets("Registrierung").Visible = xlSheetVeryHidden 'Blatt Registrierung ausschalten
'Sheets("Registrierung").Visible = True 'Blatt Registrierung einschalten
If Sheets("Registrierung").Cells(2000, 1) = "" Then
Sheets("Registrierung").Cells(2000, 1) = Application.ProductCode
MsgBox "Diese Datei wurde erfolgreich integriert!", vbInformation, "Registriert ..."
Else
If Not Sheets("Registrierung").Cells(2000, 1) = Application.ProductCode Then
MsgBox "Dieses Workbook ist auf diesem Rechner nicht registriert! Excel wird beendet", vbCritical, "Beenden ..."
ThisWorkbook.Save
ThisWorkbook.Close
End If
End If
If Sheets("Registrierung").Cells(2000, 2) = "" Then
Sheets("Registrierung").Cells(2000, 2) = Application.UserName
MsgBox "Diese Datei wurde erfolgreich für " & Application.UserName & " registriert!", vbInformation, "Registriert ..."
Else
If Not Sheets("Registrierung").Cells(2000, 2) = Application.UserName Then
MsgBox "Diese Datei ist nicht für " & Application.UserName & " registriert worden! Excel schließt diese Datei", vbCritical, "Beenden ..."
ThisWorkbook.Save
ThisWorkbook.Close
End If
End If
End Sub
aber auch nicht sicher.
Gruß
HansH