Guten Abend alle zusammen
Ich habe ein Diagramm in einer Userform integriert, was auch funktioniert.
Jetzt haben aber nicht alle User eine Schreibberechtigung für den Ordner.
Da vor der Anzeige von dem Diagramm eine gif Datei erstellt wird , und normalerweise in den Ordner kopiert wird, funktioniert das natürlich nicht. Gibt es dafür eine Lösung.
Die Folge davon ist ein Laufzeitfehler. Wenn das Diagramm schon nicht angezeigt werden kann sollte das Program trotzdem weiterarbeiten oder auf eine andere Userform springen. Wie kann ich das bewerkstelligen.
Für Eure Hilfe schon mal vielen Dank.
da gibt es 2 Möglichkeiten
Ich nehm mal an du fragst mittels worbook_open Befehl den Username ab und entscheidest dann ob Schreibschutz oder nicht.
Das hab ich mal so gelöst:
Private Sub workbook_open()
schreibeLogFile
Dim wks As Worksheet
Dim strpass As String
Dim strlogok As String
strlogok = Application.UserName
Select Case strlogok
Case Is = „uyx86“
strpass = „ok“
Case Is = „uyx87“
strpass = „ok“
Case Is = „uyx88“
strpass = „ok“
Case Is = „spaguzzi“
strpass = „ok“
Case Else
strpass = „nok“
End Select
If strpass = „ok“ Then
frmEingabe.Show
Else
Set wks = Sheets(„Eingabe“)
With wks
.Visible = xlSheetHidden
Set wks = Nothing
End With
Sheets(„Woche“).Activate
'frmEingabe.Show
End If
2. Möglichkeit: Laufzeitfehler abfangen
if err.number = Laufzeitfehlernummer then
frmbox „Grafik kann nicht angezeigt werden“
frm.Alternativuserform.show
else:
err.description
end if
letzterer musst du in deinem code einbauen und ich hab ihn noch nicht getestet.
Den ersten Code verwende ich und funktioniert tadellos
mfg
Spaguzzi
… wenn Du sonst keine Fehlerbehandlung brauchst
verwendest Du am besten…:
On Error Resume Next
… im Ereignis Activate der Userform.
Gruß Andreas