Fiscalia

[code:1:ac99b1de37]Sub Entrar_Valor Dim Texto As String ' Chr(13) sirve para que el mensaje se muestre en dos Líneas Texto = InputBox("Introducir un texto " & Chr(13) & "Para la casilla A1", "Entrada de datos") ActiveSheet.Range("A1").Value = Texto End Sub[/code:1:ac99b1de37]

No deberias deducir un pago que tu no haces, ¿o sí? El Art. 123 LISR VI.Las cuotas pagadas por los patrones al Instituto Mexicano del Seguro Social, incluso cuando éstas sean a cargo de sus trabajadores se refiere a las cuotas que le corresponden al trabajador y no se les descuenta, las paga el patrón

En la ley no se le dan esas facultades.

No sé que tan grande sea tu archivo, ni que velocidad tenga tu PC, pero lo puedes cambiar el cálculo de Automatico a manual, así no te hará los cálculos cada que ingreses un dato, sino cuando tu le des F9. Este cambio lo haces en el menú Herramientas → Opciones, y la ficha de calcular

Se me hace que va a ser mas rápido y comodo que la captura en linea.

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.

Autor	Mensaje
Tópico: Pregunta Visual Basic
ByPaco Mensajes: 3	Foro: Excel Enviado: Octubre 06, 2005 Asunto:
ByPaco Mensajes: 3	[code:1:ac99b1de37]Sub Entrar_Valor Dim Texto As String ' Chr(13) sirve para que el mensaje se muestre en dos Líneas Texto = InputBox("Introducir un texto " & Chr(13) & "Para la casilla A1", "Entrada de datos") ActiveSheet.Range("A1").Value = Texto End Sub[/code:1:ac99b1de37]
Tópico: DUDA RETENCION IMSS.?
ByPaco Mensajes: 7	Foro: Fiscal Enviado: Octubre 05, 2005 Asunto:
ByPaco Mensajes: 7	No deberias deducir un pago que tu no haces, ¿o sí? El Art. 123 LISR VI.Las cuotas pagadas por los patrones al Instituto Mexicano del Seguro Social, incluso cuando éstas sean a cargo de sus trabajadores se refiere a las cuotas que le corresponden al trabajador y no se les descuenta, las paga el patrón
Tópico: seguridad social
ByPaco Mensajes: 5	Foro: Seguridad Social Enviado: Octubre 05, 2005 Asunto:
ByPaco Mensajes: 5	En la ley no se le dan esas facultades.
Tópico: ARCHIVO PESADO
ByPaco Mensajes: 3	Foro: Excel Enviado: Octubre 05, 2005 Asunto:
ByPaco Mensajes: 3	No sé que tan grande sea tu archivo, ni que velocidad tenga tu PC, pero lo puedes cambiar el cálculo de Automatico a manual, así no te hará los cálculos cada que ingreses un dato, sino cuando tu le des F9. Este cambio lo haces en el menú Herramientas → Opciones, y la ficha de calcular
Tópico: Dictamen INFONAVIT
ByPaco Mensajes: 8	Foro: Seguridad Social Enviado: Octubre 05, 2005 Asunto:
ByPaco Mensajes: 8	Se me hace que va a ser mas rápido y comodo que la captura en linea.
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.

Actualidades

Secciones

Herramientas

Especiales

Legislación

Herramientas

Dólar EUA

18/ABR/24

$17.0252

DOF 17/abr/24

INPC

MAR/24

134.065

Inflación +1.28%

Vista Rápida

1.47%

0.98%

8.129121

312.332

Accesos Directos

Tesis

Base de datos actualizada a:

Descargas

Comunidad

¿Qué es comunidad?

Declaración anual 2023 de Personas Físicas

Declaración anual 2023 de Personas Morales

Factura Electrónica CFDI 4.0

¿Nuevo en Fiscalia?

¿Eres miembro Fiscalia?

Contenido

Enlaces

Contáctanos

Sitios del Grupo