foutmelding bij collega

[westra77]

hallo onderstaande code loopt bij mij op de computer wel juist, maar een collega krijgt een foutmelding: Hoe kan ik dit in onderstaande code oplossen
foutmelding is: kan project of bibliotheek niet vinden

[COLOR="Red"][B]Private Sub Workbook_BeforeClose(Cancel As Boolean)[/B][/COLOR]       ActiveWindow.DisplayWorkbookTabs = True
    Application.DisplayFormulaBar = True
    Application.DisplayScrollBars = True
    Application.DisplayStatusBar = True

     Dim Save As Boolean
     Application.ScreenUpdating = False
    Save = True
    
    If ThisWorkbook.Saved = False Then
       a = MsgBox("Wilt u de wijzigingen opslaan?", vbYesNoCancel, "gegevens opslaan
        If a = vbCancel Then Cancel = True
        If a = vbNo Then Save = False
    End If
    
    If Save = False Then
        ThisWorkbook.Saved = True
    End If
    
    If Cancel = False And Save = True Then

Blad1.Visible = xlSheetVisible
  Blad1.Visible = True
  HideAll
    ThisWorkbook.Save
    End If

  
  End Sub
  
Private Sub Workbook_Open()
    
    UnHideAll
    Blad2.Activate
    
    ActiveWindow.DisplayWorkbookTabs = False
    Application.DisplayFormulaBar = False
    Application.DisplayScrollBars = False
    Application.DisplayStatusBar = False
    ActiveSheet.Protect ("joppe")
      
  Blad1.Visible = xlSheetHidden
   
    
End Sub

Private Sub HideAll()
    'Blad1.Visible = xlSheetVisible
    Blad2.Visible = xlSheetHidden
    Blad3.Visible = xlSheetHidden
    
       
       
    
End Sub
Private Sub UnHideAll()
    
    'Blad1.Visible = xlSheetHidden
    Blad2.Visible = xlSheetVisible
    Blad3.Visible = xlSheetVisible
    
         Application.ScreenUpdating = True
 
    
End Sub

 

[snb]

Haal alle code die niet te maken heeft met weer zichtbaar maken van dingen weg.
Het lijkt alsof je ingebouwde funkties van Excel in gebrekkig VBA wil toevoegen.

 

[westra77]

de code zorgt ervoor dat indien macro's worden ingeschakeld blad 1 en 2 worden weergegeven. Indien wordt gekozen voor macro's uitschakelen wordt blad 1 weergegeven.
deze code is met hulp van dit forum gemaakt en werkt prima.
mijn collega heeft al eerder een foutmelding gekregen, die opgelost is dmv van dit forum.
de code werkt bij alle collega's prima, behalve bij 1 collega.
zie topic:foutmelding: kan project of bibliotheek niet vinden?

 

[Roncancio]

hallo onderstaande code loopt bij mij op de computer wel juist, maar een collega krijgt een foutmelding: Hoe kan ik dit in onderstaande code oplossen
foutmelding is: kan project of bibliotheek niet vinden

Op welke regel geeft de computer aan dat er een fout zit?

[COLOR="Red"][B]Private Sub Workbook_BeforeClose(Cancel As Boolean)[/B][/COLOR]       ActiveWindow.DisplayWorkbookTabs = True
[/QUOTE]
Bovenstaande vind ik ook opmerkelijk aangezien de ActiveWindow regel onder de Private Sub moet komen.

Met vriendelijke groet,


Roncancio

 

[westra77]

dit klopt (was me zelf niet opgevallen) dit is met plakken en knippen vanuit vba misgegaan
hieronder de juiste code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
       ActiveWindow.DisplayWorkbookTabs = True
    Application.DisplayFormulaBar = True
    Application.DisplayScrollBars = True
    Application.DisplayStatusBar = True

     Dim Save As Boolean
     Application.ScreenUpdating = False
    Save = True
    
    If ThisWorkbook.Saved = False Then
        [COLOR="Red"]a =[/COLOR] MsgBox("Wilt u de wijzigingen opslaan?", vbYesNoCancel, "gegevens opslaan?")
        If a = vbCancel Then Cancel = True
        If a = vbNo Then Save = False
    End If
    
    If Save = False Then
        ThisWorkbook.Saved = True
    End If
    
    If Cancel = False And Save = True Then

Blad1.Visible = xlSheetVisible
  Blad1.Visible = True
  HideAll
    ThisWorkbook.Save
    End If

  
  End Sub
  
Private Sub Workbook_Open()
    
    UnHideAll
    Blad2.Activate
    
    ActiveWindow.DisplayWorkbookTabs = False
    Application.DisplayFormulaBar = False
    Application.DisplayScrollBars = False
    Application.DisplayStatusBar = False
    ActiveSheet.Protect ("joppe")
      
  Blad1.Visible = xlSheetHidden
   
    
End Sub

Private Sub HideAll()
    'Blad1.Visible = xlSheetVisible
    Blad2.Visible = xlSheetHidden
    Blad3.Visible = xlSheetHidden
    
       
       
    
End Sub
Private Sub UnHideAll()
    
    'Blad1.Visible = xlSheetHidden
    Blad2.Visible = xlSheetVisible
    Blad3.Visible = xlSheetVisible
    
         Application.ScreenUpdating = True
 
    
End Sub

 

[Roncancio]

Op welke regel geeft de computer aan dat er een fout zit?

Met vriendelijke groet,


Roncancio

 

[westra77]

foutmelding:

[Private Sub Workbook_BeforeClose(Cancel As Boolean)

in geel

a = MsgBox("Wilt u de wijzigingen opslaan?", vbYesNoCancel, "gegevens opslaan?")

a= donkerblauw

 

[westra77]

kan de toevoeging

Dim a As Integer
a = MsgBox("Wilt u de wijzigingen opslaan?", vbYesNoCancel, "gegevens opslaan?")

een oplossing bieden?

 

[Wigi]

kan de toevoeging

Dim a As Integer
a = MsgBox("Wilt u de wijzigingen opslaan?", vbYesNoCancel, "gegevens opslaan?")

een oplossing bieden?

Bijvoorbeeld ja.

Of als Long declareren.

 

[Warme bakkertje]

Deze kan mi ook

Dim a As VbMsgBoxResult

Mvg

Rudi

 

[snb]

of verwijder option explicit