Não sei se compreendi direito, mas na questão do resultado da divisão acredito que tenha de utilizar a Função Round :

MS Excel: Round Function
Retorna um número arredondado para um número especificado de casas decimais.
http://www.techonthenet.com/excel/formulas/round.php

Quanto ao formato da Data, verifique como está formatada a hora nas outras máquinas:
Função Now
Retorna uma Variant (Date) que especifica a data e hora atuais de acordo com a data e hora do sistema do seu computador.

Dependendo de como estiver vai ter de forçar a conversão na rotina para o formato que quer.

Quanto a "se "SENHA" for igual a CD o codigo rodar", se a celula "CD" for por exemplo "B10", a rotina ficará:

If TextBoxPassw = Range("B10").Value Then..

Ou

Dim sSenha
sSenha= Range("B10").Value

If TextBoxPassw = sSenha.Value Then

[]s

ok ,Mauro
Porem não posso usar Range("b10") , já que a linha de inserção do User é variavel . tentei usar

SENHA = Plan5.Range("CD65000").End(xlUp).Value
If TextBoxPassw = SENHA Then
Unload Me
frmCad.Show
Else
If TextBoxPassw = "" Then
MsgBox "Digite Uma Senha Válida"
TextBoxPassw.Text = ""
TextBoxPassw.SelStart = 0
TextBoxPassw.SetFocus
Else
MsgBox "Senha Inválida"
TextBoxPassw.Text = ""
TextBoxPassw.SelStart = 0
TextBoxPassw.SetFocus
End If
End If
End Sub

mas mesmo assim o código não reconhece o que está em CD e dá msgbox "senha invalida"

Para tirar da duvida se era o formato do numero , ao invés de calculo eu inseri manualmente em CD o valor 47205 ; mesmo assim deu o mesmo erro.

tentei o If TextBoxPassw = Range("CD2").Value Then tambem e coloquei a senha 47205 em CD2 , deu o mesmo erro

Bom dia!!

Que erro está dando, poste um exemplo COMPACTADO!!

Userform1.TextBox1.Text = Sheets("Sheet1").Range("A1").Value

Att

Um adendo,
por padrão um TextBox passa sempre valores TEXTO. Se a passwor é numerica (47205) então será necessario utilizar um conversor em TextBoxPassw

Exemplo : If cLng(TextBoxPassw) = Range("CD2").Value

Bom dia!!

Que erro está dando, poste um exemplo COMPACTADO!!

Userform1.TextBox1.Text = Sheets("Sheet1").Range("A1").Value

Att

Alexandre ,
na verdade não é uma msg de erro. simplesmente o textbox não está acatando o valor como senha, ai retorna a MSGBOX" Senha Inválida"

Não entendi , onde colo o seu código acima, em que parte do meu código

Um adendo,
por padrão um TextBox passa sempre valores TEXTO. Se a passwor é numerica (47205) então será necessario utilizar um conversor em TextBoxPassw

Exemplo : If cLng(TextBoxPassw) = Range("CD2").Value

Reinaldo , realmente a senha vai ser sempre numérica, não sei se coloquei certo seu conversor , porque ainda deu a MSGBOX" Senha Inválida" ; fiz da seguinte forma:

Private Sub CmdOk_Click()
'Desprot2
Plan5.Visible = xlSheetVisible
SENHA = Plan5.Range("CD65000").End(xlUp).Value
If CLng(TextBoxPassw) = SENHA Then
'If TextBoxPassw = senha Then
Unload Me
frmCad.Show
Else
If TextBoxPassw = "" Then
MsgBox "Digite Uma Senha Válida"
TextBoxPassw.Text = ""
TextBoxPassw.SelStart = 0
TextBoxPassw.SetFocus
Else
MsgBox "Senha Inválida"
TextBoxPassw.Text = ""
TextBoxPassw.SelStart = 0
TextBoxPassw.SetFocus
End If
End If
End Sub

Solução do amigo Eduardo do Orkut:
.
Na célula CD2 a fórmula deve ser (não se esqueça de mudar a fómula lá no código)
.
=INT((CB2)/2)+HOJE()
.
E no Código deve ser...
.
Private Sub CmdOk_Click()
Desprot2
SENHA = Int(Plan5.Range("CD65000").End(xlUp).Value)
If Val(TextBoxPassw) = SENHA Then
Unload Me
frmCad.Show
Else
If TextBoxPassw = "" Then
MsgBox "Digite Uma Senha Válida"
TextBoxPassw.Text = ""
TextBoxPassw.SelStart = 0
TextBoxPassw.SetFocus
Else
MsgBox "Senha Inválida"
TextBoxPassw.Text = ""
TextBoxPassw.SelStart = 0
TextBoxPassw.SetFocus
End If
End If
End Sub

Boa noite!!

Claudinei, conseguiu solucionar seu problema??..caso sim fico grato por marcar sua postagem como resolvido!!

Obrigado!!

Quase resolvido mas ainda tenho um probleminha , o User que pego em CB para utilizar na senha , é no formato "C000000" no caso de pessoal próprio, e "E000000" no caso de contratado , mas coloquei =INT((DIREITA(CB2;5)/2)+HOJE()) para tirar o "C" ou "E"

O código de captura do User como disse antes é:
Sub Get_Computer_Name()
Dim a1 As String
a1 = Now
Dim Comp_Name_B As String * 255
Dim Comp_Name As String
GetComputerName Comp_Name_B, Len(Comp_Name_B)
Comp_Name = Left(Comp_Name_B, InStr(Comp_Name_B, Chr(0)))
Dim lpBuff As String * 25
Dim ret As Long, UserName As String
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
Plan5.Range("CA65000").End(xlUp).Offset(1, 0).Value = a1
Plan5.Range("CA65000").End(xlUp).Offset(0, 1).Value = UCase(UserName)
Plan5.Range("CA65000").End(xlUp).Offset(0, 2).Value = Comp_Name
Plan5.Range("CA65000").End(xlUp).Offset(0, 3).Value = FormulaLocal = "=INT((DIREITA(CB2;5)/2)+HOJE())"
'POREM AQUI PEGA FIXO O CB2 e não pode ser fixo porque é a ultima preenchida em CB , mas não sei como colocar de maneira variavel por ser =FormulaLocal
' Explicando:
'O que preciso é em CD (Plan5.Range("CA65000").End(xlUp).Offset(0, 3).Value =) ao invés de usar FormulaLocal = "=INT((DIREITA(CB2;5)/2)+HOJE())" usar a Fórmula =INT((DIREITA(Ultima em CB Vazia ao invés de CB2;5)/2)+HOJE())"

End Sub

Boa noite!!

Caso alguém não poder ajuda-lo, seria legal mandar seu anexo!!

Att

Claudinei, nãotestei sua rotina, mas se é somente para extrair o numero e letras de uma celula, de uma olhada no exemplo postado pelo Eron, acredito que estas Function irão resolver sem utilizar FormulaLocal :

Planilha para extrair números e letras de uma célula
viewtopic.php?f=21&t=4014

[]s