VALIDADE DE PLANILHA POR N° DE ABERTURAS

[ftcj]

ESTOU COM UM PROBL. QUERO SABER DE ALGUÉM EXPERT: ONDE POSSO MODIFICAR O CÓD. DE EXPIRAR TEMPO DE PLAN.(NÚMERO DE VEZES QUE PODERÁ ABRIR UMA PLAN.) PARA QUE AMPLIE O NÚMERO DE VEZES QUE O USUÁRIO PODERÁ ACESSAR A PLAN.

A PLAN. SÓ PODE SER ABERTA 10 VEZES. EU QUERIA AMPLIAR O N° DE VEZES...EXPLIQUE-ME !!???

EM ESTA PASTA_DE_TRABALHO:

Private Sub Workbook_Open()

Dim DiasFaltantes

DiasFaltantes = CCur(Right(ActiveWorkbook.Names("tempo").Value, Len(ActiveWorkbook.Names("tempo").Value) - 1))

DiasFaltantes = DiasFaltantes - 1

ActiveWorkbook.Names.Add Name:="tempo", RefersToR1C1:="=" & DiasFaltantes

ThisWorkbook.Save

FrmSobre.Show

End Sub

DENOMINAR O USERFORM: FRMSOBRE. E INSIRA:

Private Sub UserForm_Initialize()

DiasFaltantes = CCur(Right(ActiveWorkbook.Names("tempo").Value, Len(ActiveWorkbook.Names("tempo").Value) - 1))

Me.Labeldias = Format(DiasFaltantes, "00")

Me.Label2.Width = 175 - (DiasFaltantes * 17.5)

If DiasFaltantes < 0 Then

Me.Hide

MsgBox "Este planilha expirou o prazo de utilização" & Chr(10) & "" & Chr(10) & ""

ThisWorkbook.Close

End If

End Sub

NO USERFORM DENOMINE : LABEL2 E LBELDIAS. FAÇA SEUS AJUSTES.

OBRIGADOOO AOS COLEGAS COLABORADORES!!!!!!

Editado Março 11, 2009 por ftcj