knop opslaan blokkeren

[vrouw]

Hoi,

Omdat ik een document wil laten opslaan op een door mij aangegeven lokatie heb ik een knop aangemaakt op het document om dat voor elkaar te krijgen met deze code:

sub test()
ActiveWorkbook.SaveAs [B1] & [J7] & [L7] & ".xls"
end sub

Om ervoor te zorgen dat NIET de opslaan knop van office zelf word gebruikt heb ik ook deze code erin staan:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "Deze knop voor opslaan werkt niet"
Cancel = True
End Sub

Nu werkt ook de door mij gemaakte knop/macro voor het opslaan niet meer.

 

[dnties]

Misschien heb begrijp ik waar het misgaat: Via het gebruik van ...SaveAs kom je automatisch ook langs ...BeforeSave

Wellicht moet je dus Cancel = False vóór je ...SaveAs actie zetten en Cancel = True er dan weer achter (dus in je eerste stukje code, niet in het tweede).

Ik ben geen Excel deskundig, dus ik neem aan dat er nog wel gebruikers zullen komen die op mijn oplossing commentaar geven. Je kunt allicht even uittesten wat ik schreef op een ongevaarlijk document.

Tijs.

 

[leofact]

Je kunt een variabele gebruiken om de macro te laten beslissen of er opgeslagen wordt.
Dat moet dan een publieke variabele zijn;
Die declareer je boven de bovenste sub in de module:

Public bSwitch As Boolean

Sub test()
     bSwitch = True
     ActiveWorkbook.SaveAs [B1] & [J7] & [L7] & ".xls"
End Sub

Vervolgens lees je deze uit bij de beforesave:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Not bSwitch Then
        MsgBox "Deze knop voor opslaan werkt niet"
            Cancel = True      
    End If
bSwitch = False
End Sub

mvg Leo

 

[vrouw]

Excuus maar ik ben niet helemaal duidelijk geweest.

Wat ik in het eerste stukje code liet zien is niet de complete macro
Dus krijg ik het niet voor elkaar om datgene erin te verwerken wat je voorstelde met die Public bSwitch As Boolean

Dit is de gehele macro voor het opslaan:

Sub test()
Range("J7").Select
   If [J7] > 0 Then
   Response = MsgBox("Heb je de juiste maand ingevuld ??", vbYesNo + vbQuestion, waarschuwing)
   If Response = vbNo Then Exit Sub
   ElseIf MsgBox("Je hebt de maand niet ingevuld !!", vbCritical, waarschuwing) = vbOK Then Exit Sub
End If
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs [B1] & [J7] & [L7] & ".xls"
End Sub

 

[Breuk132]

Excuus maar ik ben niet helemaal duidelijk geweest.

Wat ik in het eerste stukje code liet zien is niet de complete macro
Dus krijg ik het niet voor elkaar om datgene erin te verwerken wat je voorstelde met die Public bSwitch As Boolean

Het stukje Public bSwitch As Boolean moet helemaal bovenaan in de module komen te staan. Als er nog meer subs in de module zitten maakt niet uit als de regel Public bSwitch As Boolean maar helemaal bovenaan staat.

Public bSwitch as Boolean

Sub test()
Range("J7").Select
   If [J7] > 0 Then
   Response = MsgBox("Heb je de juiste maand ingevuld ??", vbYesNo + vbQuestion, waarschuwing)
   If Response = vbNo Then Exit Sub
   ElseIf MsgBox("Je hebt de maand niet ingevuld !!", vbCritical, waarschuwing) = vbOK Then Exit Sub
End If
Application.DisplayAlerts = False
bSwitch = True
ActiveWorkbook.SaveAs [B1] & [J7] & [L7] & ".xls"
End Sub

 

[vrouw]

Thanks, dat is het helemaal:love:

Ik heb nu alleen nog wel steeds dat het bestand niet op de juiste plaats word opgeslagen.
Het is de bedoeling dat dat gebeurd in de map waar het ook geopend is dmv de regel:
ActiveWorkbook.SaveAs [B1] & [J7] & [L7] & ".xls"

Ik kan er niet hard een lokatie aangeven omdat de gebruikers het op verschillende plaatsen opslaan.

 

[leofact]

Met

ThisWorkbook.Path

Is de directory van map op te vragen waar het werkboek in is opgeslagen.

Bij een nieuw aangemaakt werkboek gaat dat fout, daar deze dan a.h.w. zwevende is en eerst een keer opgeslagen moet worden.

mvg Leo

 

[vrouw]

Is de directory van map op te vragen waar het werkboek in is opgeslagen.

Hoe bedoel je dat?

Wat ik wel heb gedaan is het bestand dat gebruikt word, op alleen lezen gezet bij de eigenschappen om te voorkomen dat het word overschreven.

 

[leofact]

Ervan uitgaande dat de bestandsnaam gevormd wordt uit deze cellen:

[B1] & [J7] & [L7] & ".xls"

Wordt de complete naam met directory:

ThisWorkbook.SaveAs ThisWorkbook.Path & "/" & [B1] & [J7] & [L7] & ".xls"

 

[vrouw]

Helemaal Toppie.

Bedankt voor alle hulp.:thumb:

 

[leofact]

Mooi dat je eruit bent.
Graag gedaan natuurlijk.

mvg Leo