[Resolvido]Alterar campos (mais de um) somente com permissão por senha

Olá Pessoal
Ja pesquisei no fórum e encontrei alguma coisa, mas não satisfez minha necessidade uma vez que preciso que seja bloqueado/desbloqueado mais de um campo.
Caso o campo esteja em branco, permite inserir, caso já tenha dados, alteração só com permissão por uma senha (administrador)
O amigo Gilberlanio postou um video sobre isso, previlegiando somente um campo, quem sabe o mesmo possa acrescentar mais esta duvida

Grato

Bom dia.

Poste aqui o código que tens !

Private Sub Comando428_Click()
Dim x As Variant
x = InputBox2("Entre com a senha...", "Senha", , "password")
Me.DataRecebe.SetFocus
If StrPtr(x) = 0 Then
MsgBox "Você cancelou a entrada da senha...", vbInformation, "Aviso"
Cancel = True 'impede a abertura do formulário

Else
If x = "1234" Then
Me.DataRecebe.Locked = False
' MsgBox "Senha não confere...", vbInformation, "Aviso"
Cancel = True 'impede a abertura do formulário
End If
End If
End Sub

Else
If x = "1234" Then
Me.DataRecebe.Locked = False
Me.DataRecebe.Locked = False
Me.campoqualqer.locked =False
Me.campoqualqer1.locked =False
Me.campoqualqer2.locked =False
End If
End If

Dúvida
Se o campo não tiver preenchido é preciso deixar inserir, caso ja contenham dados só permitir alterar com senha.
Os campos não podem ser carregado bloqueado uma vez que se tiver em branco pode ser preenchido normalmente
como se da isso

Boa tarde

Testar no campo data.

Assis

Esta apresentando alguma divergência nos comando em negrito

Public Function InputBoxDK(Prompt As String, Optional Title As String, Optional Default As String, _
Optional Xpos As Long, Optional Ypos As Long, Optional Helpfile As String, _
Optional Context As Long) As String

Dim lngModHwnd As Long, lngThreadID As Long

'// Lets handle any Errors JIC! due to HookProc> App hang!
On Error GoTo ExitProperly
lngThreadID = GetCurrentThreadId
lngModHwnd = GetModuleHandle(vbNullString)

hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)
If Xpos Then
InputBoxDK = InputBox(Prompt, Title, Default, Xpos, Ypos, Helpfile, Context)
Else
InputBoxDK = InputBox(Prompt, Title, Default, , , Helpfile, Context)
End If

ExitProperly:
UnhookWindowsHookEx hHook

Vanderlei

Qual o seu Office ?

Aqui no meu Office 2013 - 32 Bits não tem problema algum.

Esperemos que alguém aqui no fórum teste e comente se tem problema

Vamos aguardar

Obrigado

windows 10 - 64 bit

Bom dia...

Vanderlei, O Assis quer saber qual a tua versão do Office e não o sistema operacional !!!

Desculpa ai minha falta de atenção

meu OFFICE é 2010

Silvio

Testou o meu exemplo da msg. nº 6

Obrigado

Testei deu erro nesta linha

hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)

na parte em negrito

me perguntou qual era meu office

meu office é 2010

Boa tarde Assis, testei não. Estou enrolado aqui com um desenvolvimento de um sistema para cliente.

Vanderlei, conseguiu resolver?

Aguardamos...

Resolvido