"Dé grootste en gratis computerhelpdesk van Nederland"
-
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
controle e-mailadres
- Onderwerp starter SUVERMO
- Startdatum
- Status
cow18
Terugkerende gebruiker
- Lid geworden
- 24 mei 2008
- Berichten
- 4.276
- Besturingssysteem
- Windows
- Office versie
- Excel365
voor zoiets gebruik je toch geen change-event.
Maak daar een functie van en zet dat in een gewone module
PS. niet gekeken of het werkt, want ik heb geen outlook.
Maak daar een functie van en zet dat in een gewone module
PS. niet gekeken of het werkt, want ik heb geen outlook.
Code:
Sub Test()
MsgBox "en nu gaan we emailadres checken"
If CheckEmailadres Then
MsgBox "goed"
Else
MsgBox "slecht"
End If
End Sub
Function CheckEmailadres()
On Error Resume Next
CheckEmailadres = (Sheets("blad1").Range("A2").Value = CreateObject("outlook.application").Session.CurrentUser.Address)
On Error GoTo 0
End Function
Laatst bewerkt:
even wat veranderd en nu werkt het echt,
kan het wachtwoord door experten verwijderd worden? Indien niet dan 1234
enkele bijkomende vragen.
is het mogelijk om als er in kolom E , ongeacht in welk tabblad, de macro's vermeld in kolom F worden uitgevoerd
is het mogelijk als de celwaarde van "midden!A3" = celnaam "Start_macro" groter is dan 0 het volgende gebeurt.
1° Tab Formules namen beheren niet selecteerbaar te maken, alsook Ctrl+F3 niet uitvoerbaar.
2° Bladtabs niet selecteerbaar te maken
kan het wachtwoord door experten verwijderd worden? Indien niet dan 1234
enkele bijkomende vragen.
is het mogelijk om als er in kolom E , ongeacht in welk tabblad, de macro's vermeld in kolom F worden uitgevoerd
is het mogelijk als de celwaarde van "midden!A3" = celnaam "Start_macro" groter is dan 0 het volgende gebeurt.
1° Tab Formules namen beheren niet selecteerbaar te maken, alsook Ctrl+F3 niet uitvoerbaar.
2° Bladtabs niet selecteerbaar te maken
hallo,
de macro's zijn nu gekoppeld aan cellen in kolom E.
Nu staat in blad 1, 2 en 3 telkens dezelfde code, kan iets dergelijks ook werken als het alleen in Thisworkbook staat.
heeft iemand een oplossing voor
is het mogelijk als de celwaarde van "midden!A3" = celnaam "Start_macro" groter is dan 0 het volgende gebeurt.
1° Tab Formules namen beheren niet selecteerbaar te maken, alsook Ctrl+F3 niet uitvoerbaar.
2° Bladtabs niet selecteerbaar te maken
de macro's zijn nu gekoppeld aan cellen in kolom E.
Nu staat in blad 1, 2 en 3 telkens dezelfde code, kan iets dergelijks ook werken als het alleen in Thisworkbook staat.
heeft iemand een oplossing voor
is het mogelijk als de celwaarde van "midden!A3" = celnaam "Start_macro" groter is dan 0 het volgende gebeurt.
1° Tab Formules namen beheren niet selecteerbaar te maken, alsook Ctrl+F3 niet uitvoerbaar.
2° Bladtabs niet selecteerbaar te maken
cow18
Terugkerende gebruiker
- Lid geworden
- 24 mei 2008
- Berichten
- 4.276
- Besturingssysteem
- Windows
- Office versie
- Excel365
Dit begint te lijken op bumping.
Wat je daar vraagt, daar kan je beginnen met via de macro-recorder eens te proberen eea. op te nemen en kijken wat die er van bakt.
Maar, je wil eigenlijk het lint van iemand's excel veranderen, als die je excelbestand draait.
Ik ken mensen die dan het stadium van lichte agitatie ruim zullen overschrijden.
Advies, niet doen !
Als het gewoon de gedefinieerde namen verwijderen is (neem eerst een backup)
Wat je daar vraagt, daar kan je beginnen met via de macro-recorder eens te proberen eea. op te nemen en kijken wat die er van bakt.
Maar, je wil eigenlijk het lint van iemand's excel veranderen, als die je excelbestand draait.
Ik ken mensen die dan het stadium van lichte agitatie ruim zullen overschrijden.
Advies, niet doen !
Als het gewoon de gedefinieerde namen verwijderen is (neem eerst een backup)
Code:
Sub DeleteNamedRanges()
Dim MyName As Name
For Each MyName In Names
ActiveWorkbook.Names(MyName.Name).Delete
Next
End Sub
Laatst bewerkt:
LucHeyndrickx
Terugkerende gebruiker
- Lid geworden
- 23 dec 2003
- Berichten
- 1.030
Bijna juist.
Maar je mag niet Address gebruiken, maar Name.
Kijk naar volgende code
Code:
success ermee.
Luc
Maar je mag niet Address gebruiken, maar Name.
Kijk naar volgende code
Code:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
' Range("A2") = CreateObject("outlook.application").Session.CurrentUser.Address
Range("A2") = CreateObject("outlook.application").Session.CurrentUser.Name
' On Error Resume Next
If Target.Address = "$A$1" Then
If Target.Value = Range("A2").Value Then
MsgBox "Macro's kunnen uitgevoerd worden!"
Else
MsgBox "Macro's kunnen niet uitgevoerd worden!"
End If
End If
On Error GoTo 0
End SubLuc
- Status
