Fiscalia

Lamentablemente no pueden protejer al 100%, las macros no funcionan si no se habilitan, si esto no ocurre no se podrán ejercer las protecciones. Primero veamos como forzar a que las macros sean habilitadas, trataremos de hacer un ejercicio. En un libro nuevo con varias hojas copiamos este código a la hoja de EsteLibro ó ThisWorkbook. [code:1:bdea2f108a]Public bIsClosing As Boolean Dim wsSheet As Worksheet Private Sub Workbook_Open() bIsClosing = False For Each wsSheet In ThisWorkbook.Worksheets If wsSheet.CodeName <> "Sheet1" Then wsSheet.Visible = xlSheetVisible End If Next wsSheet Sheet1.Visible = xlSheetVeryHidden End Sub Private Sub Workbook_Deactivate() If bIsClosing = False Then Exit Sub Application.ScreenUpdating = False For Each wsSheet In ThisWorkbook.Worksheets If wsSheet.CodeName = "Sheet1" Then wsSheet.Visible = xlSheetVisible Else wsSheet.Visible = xlSheetVeryHidden End If Next wsSheet Application.ScreenUpdating = True End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Cancel = True Or bIsClosing = False Then Exit Sub Application.ScreenUpdating = False For Each wsSheet In ThisWorkbook.Worksheets If wsSheet.CodeName = "Sheet1" Then wsSheet.Visible = xlSheetVisible Else wsSheet.Visible = xlSheetVeryHidden End If Next wsSheet Application.ScreenUpdating = True End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) bIsClosing = True End Sub[/code:1:bdea2f108a] Guarden el Libro, luego lo abren [u:bdea2f108a]Sin Habilitar macros[/u:bdea2f108a], debe abrir solo una hoja en esa pongan un mensaje para indicarle al usuario que no se abriran las demás hojas si no habilitan las macros No olviden protejer con contraseña los proyectos de Visual Basic. Espero sus comentarios

Grava al 100% Integra solo el excedente al tope de 10% sobre SBC.

Edreher, me interesa también ese complemento, si pudieras enviarmelo te lo agradeceria mucho.

Y si lo quitarón, alcance a leerlo

Consigue el NSS, si no esta en la página del INFONAVIT, solicitalo al IMSS, pero debes darlo de alta y posteriormente la baja, pagando las cuotas por el periodo laborado, ya que hay evidencia de la relación laboral.

Seguramente cambiarón la Base de datos del IMSS, y aunque en teoria el IMSS y el INFONAVIT deben tener la misma base de datos no resulta ser así, sugiero solicites una preafiliación al IMSS, ya sea por e-mail de tu delegación ó subdelegación, o llenar un AFIL-02 sin el NSS e ir a ventanilla solicitar el NSS, aunque no sé si aun te lo reciban así. Suerte‼

Como bien dicen los compañeros, no hay multa si la presentas extemporanea pero expontaneo, (si la autoridad no lo ha requerido), tambien puedes pagar con el salario correcto desde la fecha de la modificación, también recuerda que esto procede con Salarios a la alza únicamente

Esos puestos no se pueden considerar como eventuales

Depende de la clase de trabajo a realizar.

Pronto pegaré aqui la macro para inhabilitar las opciones de copiar, cortar, pegar, copiar hoja, y cualquier otra operación que querramos.

Autor	Mensaje
Tópico: Protección a Hojas de un archivo de Excel
ByPaco Mensajes: 11	Foro: Excel Enviado: Octubre 05, 2005 Asunto:
ByPaco Mensajes: 11	Lamentablemente no pueden protejer al 100%, las macros no funcionan si no se habilitan, si esto no ocurre no se podrán ejercer las protecciones. Primero veamos como forzar a que las macros sean habilitadas, trataremos de hacer un ejercicio. En un libro nuevo con varias hojas copiamos este código a la hoja de EsteLibro ó ThisWorkbook. [code:1:bdea2f108a]Public bIsClosing As Boolean Dim wsSheet As Worksheet Private Sub Workbook_Open() bIsClosing = False For Each wsSheet In ThisWorkbook.Worksheets If wsSheet.CodeName <> "Sheet1" Then wsSheet.Visible = xlSheetVisible End If Next wsSheet Sheet1.Visible = xlSheetVeryHidden End Sub Private Sub Workbook_Deactivate() If bIsClosing = False Then Exit Sub Application.ScreenUpdating = False For Each wsSheet In ThisWorkbook.Worksheets If wsSheet.CodeName = "Sheet1" Then wsSheet.Visible = xlSheetVisible Else wsSheet.Visible = xlSheetVeryHidden End If Next wsSheet Application.ScreenUpdating = True End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Cancel = True Or bIsClosing = False Then Exit Sub Application.ScreenUpdating = False For Each wsSheet In ThisWorkbook.Worksheets If wsSheet.CodeName = "Sheet1" Then wsSheet.Visible = xlSheetVisible Else wsSheet.Visible = xlSheetVeryHidden End If Next wsSheet Application.ScreenUpdating = True End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) bIsClosing = True End Sub[/code:1:bdea2f108a] Guarden el Libro, luego lo abren [u:bdea2f108a]Sin Habilitar macros[/u:bdea2f108a], debe abrir solo una hoja en esa pongan un mensaje para indicarle al usuario que no se abriran las demás hojas si no habilitan las macros No olviden protejer con contraseña los proyectos de Visual Basic. Espero sus comentarios
Tópico: BONO DE PUNTUALIDAD.. ¿ES PREVISION SOCIAL?
ByPaco Mensajes: 6	Foro: Seguridad Social Enviado: Octubre 05, 2005 Asunto:
ByPaco Mensajes: 6	Grava al 100% Integra solo el excedente al tope de 10% sobre SBC.
Tópico: Para Todos
ByPaco Mensajes: 9	Foro: Excel Enviado: Octubre 05, 2005 Asunto:
ByPaco Mensajes: 9	Edreher, me interesa también ese complemento, si pudieras enviarmelo te lo agradeceria mucho.
Tópico: Para Todos
ByPaco Mensajes: 9	Foro: Excel Enviado: Octubre 04, 2005 Asunto:
ByPaco Mensajes: 9	Y si lo quitarón, alcance a leerlo
Tópico: Duda en Abandono de empleo
ByPaco Mensajes: 9	Foro: Seguridad Social Enviado: Octubre 04, 2005 Asunto:
ByPaco Mensajes: 9	Consigue el NSS, si no esta en la página del INFONAVIT, solicitalo al IMSS, pero debes darlo de alta y posteriormente la baja, pagando las cuotas por el periodo laborado, ya que hay evidencia de la relación laboral.
Tópico: Error en un reingreso
ByPaco Mensajes: 5	Foro: Seguridad Social Enviado: Octubre 04, 2005 Asunto:
ByPaco Mensajes: 5	Seguramente cambiarón la Base de datos del IMSS, y aunque en teoria el IMSS y el INFONAVIT deben tener la misma base de datos no resulta ser así, sugiero solicites una preafiliación al IMSS, ya sea por e-mail de tu delegación ó subdelegación, o llenar un AFIL-02 sin el NSS e ir a ventanilla solicitar el NSS, aunque no sé si aun te lo reciban así. Suerte‼
Tópico: modificacion de salario
ByPaco Mensajes: 6	Foro: Seguridad Social Enviado: Octubre 04, 2005 Asunto:
ByPaco Mensajes: 6	Como bien dicen los compañeros, no hay multa si la presentas extemporanea pero expontaneo, (si la autoridad no lo ha requerido), tambien puedes pagar con el salario correcto desde la fecha de la modificación, también recuerda que esto procede con Salarios a la alza únicamente
Tópico: TRABAJ EVENTUALES
ByPaco Mensajes: 9	Foro: Seguridad Social Enviado: Octubre 04, 2005 Asunto:
ByPaco Mensajes: 9	Esos puestos no se pueden considerar como eventuales
Tópico: TRABAJ EVENTUALES
ByPaco Mensajes: 9	Foro: Seguridad Social Enviado: Octubre 04, 2005 Asunto:
ByPaco Mensajes: 9	Depende de la clase de trabajo a realizar.
Tópico: Protección a Hojas de un archivo de Excel
ByPaco Mensajes: 11	Foro: Excel Enviado: Octubre 04, 2005 Asunto:
ByPaco Mensajes: 11	Pronto pegaré aqui la macro para inhabilitar las opciones de copiar, cortar, pegar, copiar hoja, y cualquier otra operación que querramos.

Actualidades

Secciones

Herramientas

Especiales

Legislación

Herramientas

Dólar EUA

06/DIC/22

$19.3422

DOF 05/dic/22

INPC

OCT/22

125.276

Inflación +6.79%

Vista Rápida

1.47%

0.98%

7.644324

298.012

Accesos Directos

Tesis

Base de datos actualizada a:

Descargas

Comunidad

¿Qué es comunidad?

Reforma Fiscal 2023

Régimen Simplificado de Confianza (RESICO)

Complemento Carta Porte (CFDI)

¿Nuevo en Fiscalia?

¿Eres miembro Fiscalia?

Contenido

Enlaces

Contáctanos

Sitios del Grupo